home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / shrlk201.zip / _SETUP.1 / nsDateEdit.pas < prev    next >
Pascal/Delphi Source File  |  1997-07-22  |  2KB  |  76 lines
  1. unit nsDateEdit;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DsgnIntf, nsShareLock,
  7.   StdCtrls, Grids, Calendar, ExtCtrls, ComCtrls;
  8.  
  9. type
  10.   TfrmDate = class(TForm)
  11.     btnOk: TButton;
  12.     cmbMonth: TComboBox;
  13.     btnCancel: TButton;
  14.     cal: TCalendar;
  15.     txtYear: TEdit;
  16.     udYear: TUpDown;
  17.     procedure cmbMonthChange(Sender: TObject);
  18.     procedure calChange(Sender: TObject);
  19.     procedure calDblClick(Sender: TObject);
  20.     procedure udYearChanging(Sender: TObject; var AllowChange: Boolean);
  21.     procedure udYearClick(Sender: TObject; Button: TUDBtnType);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     function Execute(Year, Month, Day: Word): string;
  26.   end;
  27.  
  28.   //var Form1: TForm1;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. function TfrmDate.Execute(Year, Month, Day: Word): string;
  35. begin
  36.   //Parse date and change cal.
  37.   Cal.Day := Day;
  38.   udYear.Position := Year;
  39.   Cal.Year := Year;
  40.   txtYear.Text := IntToStr(Year);
  41.  
  42.   cmbMonth.ItemIndex := Month - 1;
  43.   Cal.Month := cmbMonth.ItemIndex + 1;
  44.   if Showmodal = mrOk then Result := FormatDateTime('ddddd', Cal.CalendarDate)
  45.   else Result := '';
  46. end;
  47.  
  48. procedure TfrmDate.cmbMonthChange(Sender: TObject);
  49. begin
  50.   Cal.Day := 1;
  51.   Cal.Month := cmbMonth.ItemIndex + 1;
  52. end;
  53.  
  54. procedure TfrmDate.calChange(Sender: TObject);
  55. begin
  56.   Caption := FormatDateTime('dddddd', Cal.CalendarDate);
  57. end;
  58.  
  59. procedure TfrmDate.calDblClick(Sender: TObject);
  60. begin
  61.   btnOk.Click;
  62. end;
  63.  
  64. procedure TfrmDate.udYearChanging(Sender: TObject;
  65.   var AllowChange: Boolean);
  66. begin
  67.   Cal.Year := udYear.Position;
  68. end;
  69.  
  70. procedure TfrmDate.udYearClick(Sender: TObject; Button: TUDBtnType);
  71. begin
  72.   Cal.Year := udYear.Position;
  73. end;
  74.  
  75. end.
  76.